REM Sub includeFile(fSpec)
    REM executeGlobal CreateObject("Scripting.FileSystemObject").openTextFile(fSpec).readAll()
REM End Sub

Sub runAppPopupOKCancel(appName,displayPopup,timeOutPopup)
	Dim objShell, WshShell, intReturn
	Set WshShell = WScript.CreateObject("WScript.Shell")
	
	If displayPopup Then
		Set objShell = CreateObject("Wscript.Shell")
		intReturn = objShell.Popup("Auto Start dans " & timeOutPopup & "sec." & VbCrLf & VbCrLf & _
									"OK : pour executer maintenant" & VbCrLf & _
									"Anunler : pour ne pas executer", _
									timeOutPopup, _
									appName, _
									vbOKCancel+vbDefaultButton1+vbQuestion)
	End If
   
	If (intReturn = vbCancel) Then
		Exit Sub
	End If
   
	WshShell.Run chr(34) & appName & chr(34)
End Sub
